*** empty log message ***

diff --git a/lisp/subr.el b/lisp/subr.el
index e4c2c1e697825df5fb70eaaa221889e2afca815d..0cea4ed5b9892eadbb7637930479f7f0b49ae1b8 100644 (file)
--- a/lisp/subr.el
+++ b/lisp/subr.el
@@ -1164,7 +1164,7 @@ that can be added."
 
 (defun remove-from-invisibility-spec (arg)
   "Remove elements from `buffer-invisibility-spec'."
-  (if buffer-invisibility-spec
+  (if (consp buffer-invisibility-spec)
     (setq buffer-invisibility-spec (delete arg buffer-invisibility-spec))))
 \f
 (defun global-set-key (key command)